﻿Imports LogicaAT.SIREOS
Imports ServiciosAT

Namespace SIREOS
    Public Class CtPagos

        Function listarCobros(oOrdenServicioCobro As SireosWSPago.OrdenServicioCobro) As DataTable
            Dim oPagoWS As New PagoWSR
            Return oPagoWS.listarCobros(oOrdenServicioCobro)
        End Function

        Function listarPagos(oOrdenServicioPago As SireosWSPago.OrdenServicioPago) As DataTable
            Dim oPagoWS As New PagoWSR
            Return oPagoWS.listarPagos(oOrdenServicioPago)
        End Function

        Function registrarCobro(oOrdenServicioCobro As SireosWSPago.OrdenServicioCobro) As Integer
            Dim oPagoWS As New PagoWSR
            Return oPagoWS.registrarCobro(oOrdenServicioCobro)
        End Function

        Function registrarPago(oOrdenServicioPago As SireosWSPago.OrdenServicioPago) As SireosWSPago.MensajeInformativo
            Dim oPagoWS As New PagoWSR
            Return oPagoWS.registrarPago(oOrdenServicioPago)
        End Function

        Function anularCobro(oOrdenServicioCobro As SireosWSPago.OrdenServicioCobro) As SireosWSPago.MensajeInformativo
            Dim oPagoWS As New PagoWSR
            Return oPagoWS.anularCobro(oOrdenServicioCobro)
        End Function

        Function anularPago(oOrdenServicioPago As SireosWSPago.OrdenServicioPago) As SireosWSPago.MensajeInformativo
            Dim oPagoWS As New PagoWSR
            Return oPagoWS.anularPago(oOrdenServicioPago)
        End Function

        Function consultarPagos(oOrdenServicioPago As SireosWSPago.OrdenServicioPago, fechaInicio As String, fechaTermino As String) As DataTable
            Dim oPagoWSR As New PagoWSR
            Return oPagoWSR.consultarPagos(oOrdenServicioPago, fechaInicio, fechaTermino)
        End Function


    End Class
End Namespace
